archived functions/buildAuths.R

In michaelgavin/htn: Build a historical text network.

#' Creates a data frame of names and their associated TCP numbers
#'
#' @param auths A string of \code{;} delimeted author names to be separated.
#' 
#' @param tcp   The \code{TCP} number associated with the authors.
#' 
#' @return df   A \code{data.frame} of the authors for a partuclar tcp number
#'              of the form name, tcp.
#'              
#' @examples
#' authors = buildAuths(tcp$Author[which(tcp$TCP == "A0005")], "A0005")
buildAuths = function(auths, tcp) {
  trim.leading <- function (x)  sub("^\\s+", "", x)
  names = c()
  tcps = c()
  if(auths != "") {
    for(i in 1:length(auths)) {
      newAuths = as.character(auths[i])
      newAuths = strsplit(newAuths, split=';')
      for(j in 1:length(newAuths[[1]])) {
        auth = newAuths[[1]][j]
#         auth = strsplit(auth, split=',')
#         auth = unlist(auth)
#         auth = trim.leading(auth)
        #print(auth)
        #print(auth[3])
        sub = regexpr("[0-9]{2,}[.|\\?]{1}", auth)
        if(sub != -1) {
          sub = substr(auth, 1, sub + attr(sub, "match.length") - 1)
        } else {
          sub = auth
        }
        #name = paste(paste(auth[1], ",", sep=''), auth[2], sub, sep=" ")
        #print(auth)
        #browser()
        if(length(sub) >0) {
          names[[j]] = trim.leading(sub)
        } else {
          names[j] = NA
        }
      }
    }
    #names(names) = tcp
    tcps = rep(tcp, length(names))
    df = data.frame(names, tcps)
    names(df) = c("name", "tcp")
    ##browser()
    return(df)
  } else {
    names = NA
    tcps = tcp
    df = data.frame(names, tcp)
    names(df) = c("name", "tcp")
    ##browser()
    return(df)
  }
}